home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / tools / tpnova / toolhdr.doc < prev   
Text File  |  1996-07-10  |  6KB  |  161 lines
  1. unit NovTools;
  2.  
  3. interface
  4.  
  5. uses NovAPI,IPXLIB,DOS;
  6.  
  7. const
  8.    NONE                   = 0;
  9.    GENERAL_FAILURE        = -1;
  10.    BAD_DRIVE_LETTER       = -2;
  11.    INVALID_PATH           = -3;
  12.    MAX_8_SERVERS          = -4;
  13.    SERVER_NOT_ON_NETWORK  = -5;
  14.    SERVER_MAX_CONNECTIONS = -6;
  15.    NO_FREE_DRIVES         = -7;
  16.    OBJECT_NOT_FOUND       = -8;
  17.    LOGIN_FAILURE          = -9;
  18.    LOGIN_SCRIPT_FAILURE   = -10;
  19.    NO_MORE_OBJECTS        = -11;
  20.    NO_MORE_GROUPS         = -12;
  21.    NO_MORE_USERS          = -13;
  22.    NO_MORE_QUEUES         = -14;
  23.    NO_MORE_PSERVERS       = -15;
  24.    NO_MORE_FSERVERS       = -16;
  25.    NO_MORE_QUSERS         = -17;
  26.    NO_MORE_MEMBERS        = -18;
  27.    UNABLE_TO_MODIFY_GROUP = -19;
  28.  
  29.    SUNDAY    = 0;
  30.    MONDAY    = 1;
  31.    TUESDAY   = 2;
  32.    WEDNESDAY = 3;
  33.    THURSDAY  = 4;
  34.    FRIDAY    = 5;
  35.    SATURDAY  = 6;
  36.  
  37. type
  38.    string128 = string[128];
  39.  
  40.    SearchWorkSpace = array[1..78] of byte;
  41.  
  42.    ObjectSearchRecord = RECORD
  43.          Reserved       : SearchWorkSpace;
  44.          Name           : string47;
  45.          ObjectType     : integer;
  46.          ObjectFullName : string128;
  47.          ID             : longint;
  48.          Flags          : byte;
  49.          Security       : byte;
  50.          HasProperties  : boolean;
  51.          NetworkAddress : InternetworkAddress;
  52.       end;
  53.  
  54.    DateRec = RECORD
  55.          Year  : 0..255;
  56.          Month : 1..12;
  57.          Day   : 1..31;
  58.       end;
  59.  
  60.    TimeRec = RECORD
  61.          Hour    : 0..23;
  62.          Miniute : 0..59;
  63.          Second  : 0..59;
  64.       end;
  65.  
  66.    DateTimeRec = RECORD
  67.          Year   : 0..255;
  68.          Month  : 1..12;
  69.          Day    : 1..31;
  70.          Hour   : 0..23;
  71.          Minute : 0..59;
  72.          Second : 0..59;
  73.       end;
  74.  
  75.    LoginTimeArray = array[1..42] of byte;
  76.  
  77.    LoginControlRecord = RECORD
  78.          AccountExpirationDate      : DateRec;
  79.          AccountDisabled            : boolean;
  80.          PasswordExpirationDate     : DateRec;
  81.          GraceLoginsRemaining       : byte;
  82.          DaysBetweenPasswordChanges : integer;
  83.          MaxGraceLoginsAllowed      : byte;
  84.          MinimumPasswordLength      : byte;
  85.          unknown1                   : byte;
  86.          MaxConcurrentConnections   : byte;
  87.          LoginTimes                 : LoginTimeArray;
  88.          LastLoginTime              : DateTimeRec;
  89.          PasswordControl            : (USER_CHANGE_ANY,    USER_NO_CHANGE_ANY,
  90.                                        USER_CHANGE_UNIQUE, USER_NO_CHANGE_UNIQUE);
  91.          unknown                    : array[1..6] of byte;
  92.          BadLoginCount              : byte;
  93.          AccountResetTime           : longint;   (* minute number, since 1/1/85 *)
  94.          LastIntruderAddress        : InternetworkAddress;
  95.       end;
  96.  
  97.    FlagMethods = (ADD,REPLACE,REMOVE);
  98.  
  99. var
  100.    ToolResult : integer;
  101.  
  102. procedure FirstBinderyObject(SearchMask : string47;
  103.                              var FoundObject : ObjectSearchRecord);
  104. procedure NextBinderyObject(var FoundObject : ObjectSearchRecord);
  105. procedure FirstUser(UserMask : string47;
  106.                     var FoundObject : ObjectSearchRecord);
  107. procedure NextUser(var FoundObject : ObjectSearchRecord);
  108. procedure FirstGroup(GroupMask : string47;
  109.                     var FoundObject : ObjectSearchRecord);
  110. procedure NextGroup(var FoundObject : ObjectSearchRecord);
  111. procedure FirstQueue(QueueMask : string47;
  112.                     var FoundObject : ObjectSearchRecord);
  113. procedure NextQueue(var FoundObject : ObjectSearchRecord);
  114. procedure FirstPrintServer(PServerMask : string47;
  115.                     var FoundObject : ObjectSearchRecord);
  116. procedure NextPrintServer(var FoundObject : ObjectSearchRecord);
  117. procedure FirstFileServer(FServerMask : string47;
  118.                     var FoundObject : ObjectSearchRecord);
  119. procedure NextFileServer(var FoundObject : ObjectSearchRecord);
  120.  
  121.  
  122. procedure FirstGroupImIn(WhichObject : string47; WhatType : integer;
  123.                          var FoundGroup : ObjectSearchRecord);
  124. procedure NextGroupImIn(var FoundGroup : ObjectSearchRecord);
  125. procedure FirstGroupMember(WhichGroup : string47;
  126.                            var FoundMember : ObjectSearchRecord);
  127. procedure NextGroupMember(var FoundMember : ObjectSearchRecord);
  128.  
  129.  
  130. procedure FirstQueueUser(WhichQueue : string47;
  131.                          var FoundUser : ObjectSearchRecord);
  132. procedure NextQueueUser(var FoundUser : ObjectSearchRecord);
  133. procedure FirstQueueOperator(WhichQueue : string47;
  134.                          var FoundOperator : ObjectSearchRecord);
  135. procedure NextQueueOperator(var FoundOperator : ObjectSearchRecord);
  136. procedure FirstQueueServer(WhichQueue : string47;
  137.                          var FoundServer : ObjectSearchRecord);
  138. procedure NextQueueServer(var FoundServer : ObjectSearchRecord);
  139.  
  140.  
  141. function  Attach(ServerName : string; LoginDrive : char) : integer;
  142. procedure AddMemberToGroup(WhichObject : string47; WhatType : integer;
  143.                            WhichGroup  : string47);
  144. procedure DOSPathToNetworkPath(DOSPath : string; var ServerName,Volume,Path : string);
  145. procedure Flag(AFile : string; ChangeMethod : FlagMethods; Attribs,ExAttribs : byte);
  146. function  FullName(WhichObject : string47; WhatType : integer) : string;
  147. procedure GetObjectLoginControl(WhichObject : string47; WhatType : integer;
  148.                                 var LoginInfo : LoginControlRecord);
  149. procedure Map(DriveLetter : char; NetworkPath : string);
  150. procedure MapDel(DriveLetter : char);
  151. procedure MapTemporary(TempNumber : integer; NetworkPath : string);
  152. procedure NFSplit(NetPath : string; var ServerName,Volume,Path,Name,Extent : string);
  153. function  ObjectCanLoginAt(LoginInfo : LoginControlRecord;
  154.                           Day,Hour,Minute : byte) : boolean;
  155. procedure OpenLoginScript(ConnectionID : integer; var ScriptFile : TEXT);
  156. function  ObjectIDHexString(WhichObject : string47; WhatType : integer) : string;
  157. procedure RemoveMemberFromGroup(WhichObject : string47; WhatType : integer;
  158.                                 WhichGroup  : string47);
  159. function  ServerConnectionID(ServerName : string) : integer;
  160. function  VolumeName(NetDrive : char) : string;
  161.